errMn   dw  "Error multiplicar naturales (Overflow)" ;38

;multiplicacion de naturales
;
;   param1: mult1
;   param2: mult2
;
;   retorna el resultado en la punta del Stack
multN proc near
    push bp
    mov bp,sp
    push ax
    push dx
    
    mov ax, [bp+4]
    mov dx, [bp+6]
    mul dx
    jnc mulNok
    push offset errMn
    push 38
    call writeSTR
    jmp fin
mulNok:
    ;multiplica bien
    mov [bp+6],ax
    pop dx
    pop ax
    pop bp
    ret 2
multN endp
